
module Nomes where

import Graphics.UI.GLUT

-- Make
makeNomes :: IO DisplayList
makeNomes  = do
	[listaNomes] <- genObjectNames 1
	defineList listaNomes Compile $ do
		currentColor $= Color4 0 0 0 1
		materialAmbient Front $= Color4 0 0 0 1		
		-- Barramento C
		preservingMatrix $ do
			translate (Vector3 (-40) (-33) 10 :: Vector3 GLfloat)
			escreve "Barramento C"
		preservingMatrix $ do
			translate (Vector3 27 14 10 :: Vector3 GLfloat)
			escreve "Barramento B"
		preservingMatrix $ do
			translate (Vector3 (-20) (-24) 10 :: Vector3 GLfloat)
			escreve "Controle da ULA (6)"
		preservingMatrix $ do
			translate (Vector3 0.5 (-29) 10 :: Vector3 GLfloat)
			escreve "(2)"
		preservingMatrix $ do
			translate (Vector3 (-31) 40 (-27) :: Vector3 GLfloat)
			escreve "JMPC"
		preservingMatrix $ do
			translate (Vector3 20 41 (-28) :: Vector3 GLfloat)
			escreve "JAMN / JAMZ (2)"
	shadeModel $= Flat
	return listaNomes
		where
			escreve :: String -> IO ()
			escreve nome = 
				preservingMatrix $ do
						--lighting $= Disabled
						scale 0.01 0.01 (0.01::GLfloat)
						renderString MonoRoman nome
						--lighting $= Enabled